home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / dev / amos / AMCAFExa.lha / AMCAF_Examples / SamBankFixer.AMOS / SamBankFixer.amosSourceCode
Encoding:
AMOS Source Code  |  1996-01-17  |  866 b   |  29 lines
  1. ' *************************************
  2. ' *                                   *  
  3. ' *        Sam Bank Fixer V1.0        *
  4. ' *      Written by Chris Hodges      *
  5. ' *                                   *
  6. ' *************************************
  7. '
  8. ' Removes the annoying click at the end of a sample when replaying the 
  9. ' sample with Pt Sam Play. 
  10. '
  11. ' This program will clear one word in each sample in the sample bank 
  12. ' that causes the beep.  
  13. Do 
  14.   F$=Fsel$("*.abk","","Select an AMOS Sample-Bank","")
  15.   Exit If F$=""
  16.   Load F$,5
  17.   ST=Start(5)
  18.   NUMSAM=Deek(ST)
  19.    Extension_8_142A 5
  20.   For A=1 To NUMSAM
  21.     SAMAD=ST+Leek(ST+A*4-2)
  22.     Print Extension_8_0EC8(A,2);": ";Peek$(SAMAD,8);"; Freq: "; Extension_8_0EC8(Deek(SAMAD+8),5);" Len: "+ Extension_8_0EC8(Leek(SAMAD+10),5)
  23.     Doke SAMAD+14,0
  24.      Extension_8_143C A
  25.     Wait Key 
  26.   Next 
  27.   Save F$,5
  28.   Erase 5
  29. Loop